home *** CD-ROM | disk | FTP | other *** search
/ Micromanía 93 / CDMM_93_2.ISO / Project Nomads / nomads_demo_eng.exe / GUIDEDMISSILE.TCL < prev    next >
Encoding:
Text File  |  2002-02-06  |  2.1 KB  |  72 lines
  1. #
  2. #   Zustands-▄berwachungs-Script
  3. #   State Watch Script
  4. #
  5. #   gelenkte Missile
  6. #
  7. #   created:    15-Jun-2000 Bernd
  8. #               09-Aug-2000 floh    Missile-Aufschlag-Explosion (.iscollided)
  9. #
  10. #   (C) COPYRIGHT 2000 RADONLABS GMBH
  11. #
  12.  
  13. # --------------------------------------------------------
  14. #            G E L E N K T E     R A K E T E N
  15. # --------------------------------------------------------
  16. proc guidedmissilewatch_normal {} {
  17.  
  18.     if {[.iscollided] == "true"} {
  19.         .announcestate explode
  20.     } elseif {[.isstatetimeover] == "true"} {
  21.         .announcestate burn
  22.     } elseif {[.hastargetchanged] == "true"} {
  23.         .selectnewcommandlist /commandlists/guidedmissile/goto
  24.     } 
  25. }
  26.  
  27. proc guidedmissilewatch_explode {} {
  28.  
  29.     if {[.isanimfinished] == "true"} {
  30.         .setremoveable true
  31.     }
  32. }
  33.  
  34. proc guidedmissilewatch_burn {} {
  35.  
  36.     if {[.isanimfinished] == "true"} {
  37.         .setremoveable true
  38.     }
  39. }
  40.  
  41. proc guidedmissilewatch_cinematic {} {
  42.  
  43.     # empty
  44. }   
  45.  
  46. #-------------------------------------------------------------------------------
  47. #              TORPEDOS
  48. # koennen zerstoert werden, deswegen .iskilled testen
  49. #------------------------------------------------------------------------------- 
  50. proc torpedowatch_normal {} {
  51.  
  52.     if {[.iscollided] == "true"} {
  53.         .announcestate explode
  54.     } elseif {[.iskilled] == "true"} {
  55.             .announcestate explode
  56.     } elseif {[.isstatetimeover] == "true"} {
  57.         .announcestate burn
  58.     } elseif {[.hastargetchanged] == "true"} {
  59.         .selectnewcommandlist /commandlists/guidedmissile/goto
  60.     } 
  61. }
  62. #-------------------------------------------------------------------------------
  63. #   Spell-Action-Routinen
  64. #   =====================
  65. #   Eigentlich nicht genau der richtige Platz dafuer, ein richtiger 
  66. #   "Spellaction" Objekt Prototyp waere besser, der letztenendes eine
  67. #   Missile erzeugt.
  68. #-------------------------------------------------------------------------------
  69.  
  70. #-------------------------------------------------------------------------------
  71.  
  72.